home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / pswd174.zip / R-PCPSWD.MRG < prev    next >
Text File  |  1992-05-16  |  3KB  |  86 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBS-PC.BAS to produce RBBS-PC.NEW
  3. * RBBS-PC.BAS:  Date 3-5-1992  Size 174544 bytes
  4. * ------------[ Created 05-16-1992 22:35:01 ]------------
  5. * REPLACING old line(s) by new
  6. 800 IF ZAdjustedSecurity THEN _                                      ' KG032501
  7.        GOSUB 5135
  8.     IF ZOrigCnfg$ = ZCurDef$ THEN _
  9.        ZMainUserFileIndex = ZUserFileIndex : _
  10.        ZOrigSec = ZUserSecLevel : _
  11.        ZUserSecSave = ZUserSecLevel : _
  12.        ZOrigUserName$ = ZActiveUserName$
  13.     ZTimesLoggedOn = CVI(MID$(ZUserOption$,1,2)) - _
  14.        ((ZOrigCnfg$ <> ZCurDef$ OR NOT ZSubBoard) AND _              ' KG022601
  15.         (NOT ZPrivateDoor) AND (NOT ZExitToDoors))
  16.     GOSUB 9500
  17.     IF (NOT ZExitToDoors) AND (NOT ZSubBoard) THEN _                 ' KG022601
  18.        CALL UpdtCalr (ZActiveUserName$ + " from " + ZWasCI$ + _
  19. * ------[ first line different ]------
  20.                  " Lvl" + STR$(ZUserSecLevel) + " " + TIME$,2) : _   ' PSWD174
  21.        CALL ExpiredPswd                                              ' PSWD174
  22.     PrevLastOn$ = ZLastDateTimeOn$
  23.     IF ZLocalUser THEN _
  24.        ZTalkToModemAt$ = "9600" : _
  25.        ZBaudParity$ = "9600 BPS,N,8,1" : _                           ' DA062001
  26.        ZModemInitBaud$ = "9600" : _
  27.        ZSnoop = ZTrue : _
  28.        ZLineFeeds = ZTrue
  29.     CALL SetCrLf
  30.     CALL SetPrompt
  31.     CALL XferType (2,ZTrue)
  32.     IF NOT ZSubBoard THEN _                                          ' KG022601
  33.        BoardCheckDate$ = PrevLastOn$
  34.     CALL SetSysOp                                                    ' KG022601
  35.     IF ZWasA THEN _
  36.        ZActiveUserName$ = "SYSOP" : _
  37.        ZFirstName$ = "SysOp"                                         ' KG011401
  38.     IF ZExitToDoors OR ZSubBoard THEN _                              ' KG022601
  39.        GOTO 815
  40.     GOSUB 465
  41.     IF (ZEightBit AND _
  42.        ZAutoDownDesired) OR _
  43.        ZAskID THEN _
  44.        CALL TestUser
  45.     CALL QuickTPut1 ("Logging " + ZActiveUserName$)
  46.     CALL Talk (1,ZOutTxt$)
  47.     Temp$ = STR$(ZBaudTest!) + MID$(ZBaudParity$,INSTR(ZBaudParity$," B")) ' KG081902
  48.     CALL QuickTPut1 ("RBBS-PC " + ZVersionID$ + " Node " + ZNodeID$ + _
  49.                 ", operating at" + Temp$)                            ' KG081902
  50.     CALL SkipLine (1)
  51.     Attempts = 0
  52.     ZWasZ$ = ZActiveUserName$ + _
  53.             " on at " + _
  54.             ZCurDate$ + _
  55.             ", " + _
  56.             ZTime$ + _
  57.             " from " + _
  58.             ZWasCI$ + _
  59.             "," + Temp$                                              ' KG081902
  60.      ZWasNG$ = ZWasZ$ + SPACE$(128 - LEN(ZWasZ$))
  61. '
  62. ' *  ALWAYS RECORD THE HASH/INDIVIDUATING FIELD TO EACH RECORD LOGGED OUT
  63. '
  64.      WasX$ = "{" + _
  65.           HashValue$ + _
  66.           "/" + _
  67.           ZIndivValue$ + _
  68.           "}"
  69.      IF LEN(ZWasZ$) < 65 THEN _
  70.         WasX = 65 _
  71.      ELSE WasX = LEN(ZWasZ$) + 2
  72.      MID$(ZWasNG$,WasX) = WasX$
  73.      CALL Printit ("  " + ZWasZ$)
  74.      IF ZNewUser THEN _
  75.         CALL UpdtCalr ("NEWUSER",1) : _
  76.         CALL Muzak (2)
  77. '
  78. ' *****  NOTIFY CALLER IF ABLE TO "AUTODOWN"  ****
  79. '
  80.     IF ZEightBit AND ZAutoDownYes THEN _
  81.        ZOutTxt$ = CHR$(9) + _
  82.             ZReturnLineFeed$ + _
  83.             "You may use AUTODOWNLOADing!" : _
  84.        CALL RingCaller : _
  85.        CALL DelayTime(4)
  86.